home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_6 / write473.lha / WRITE / Module / SEARCHPATTERN.MENU < prev    next >
Text File  |  1995-05-22  |  583b  |  26 lines
  1. /*
  2.  *   $VER: SEARCHPATTERN.MENU 4.0039 (22-Mai-95)
  3.  */
  4.  
  5. VERSIONCHECK 40000 "SEARCHPATTERN.MENU"
  6.  
  7.  
  8. ITEMBAR
  9.  
  10. ITEM "Suche nach Muster ..." ""
  11.   GETSTRING "Bitte geben sie das Suchmuster ein:\n(Case)" _PATCASE 
  12.   SETVAR "_PatCase" _RS
  13.   FINDPATTERN @CURSOR @EOT {@CASE};
  14.  
  15. ITEM "Suche noch einmal" ""
  16.   FINDPATTERN @CURSOR @EOT {@CASE};
  17.  
  18. ITEM "Suche nach Muster (no Case) ..." "╓"
  19.   GETSTRING "Bitte geben sie das Suchmuster ein:\n(No case)" _PATNOCASE 
  20.   SETVAR "_PatNoCase" _RS
  21.   FINDPATTERN @CURSOR @EOT {@NOCASE};
  22.  
  23. ITEM "Suche noch einmal" "─"
  24.   FINDPATTERN @CURSOR @EOT {@NOCASE};
  25.  
  26.